home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / sprites.lha / sprites_2.0.s < prev    next >
Encoding:
Text File  |  1993-09-26  |  4.0 KB  |  164 lines
  1. รนรบรนรบ????????????????????????????????????????*********************************
  2. *                *
  3. *    SPRITES v.2.0        *
  4. *         by            *
  5. *    JUDAS/SAINT GROUP    *
  6. *                *
  7. * Date:27.09.93     2:19:00    *
  8. *                *
  9. * Program wyswietla sprite'a    *
  10. * o dowolnej wysokosci         *
  11. * i szerokosci 16 pikseli    *
  12. * w trzech kolorach na dowolnej    *
  13. * pozycji ekranu i czeka na    *
  14. * nacisniecie lewego klawisza    *
  15. * myszki.            *
  16. *                *
  17. *********************************
  18.  
  19. Custom        equ    $dff000
  20. CIAAPRA        equ    $bfe001
  21.  
  22. COP1LC        equ    $080
  23. COPJMP1        equ    $088
  24. DIWSTRT        equ    $08e
  25. DIWSTOP        equ    $090
  26. DDFSTRT        equ    $092
  27. DDFSTOP        equ    $094
  28. DMACON        equ    $096
  29. BPL1PTH        equ    $0e0
  30. BPL1PTL        equ    $0e2
  31. BPLCON0        equ    $100
  32. COLOR00        equ    $180
  33. COLOR17        equ    $1a2
  34. COLOR18        equ    $1a4
  35. COLOR19        equ    $1a6
  36. SPR0PTH        equ    $120
  37. SPR0PTL        equ    $122
  38. SPR1PTH        equ    $124
  39. SPR1PTL        equ    $126
  40. SPR2PTH        equ    $128
  41. SPR2PTL        equ    $12a
  42. SPR3PTH        equ    $12c
  43. SPR3PTL        equ    $12e
  44. SPR4PTH        equ    $130
  45. SPR4PTL        equ    $132
  46. SPR5PTH        equ    $134
  47. SPR5PTL        equ    $136
  48. SPR6PTH        equ    $138
  49. SPR6PTL        equ    $13a
  50. SPR7PTH        equ    $13c
  51. SPR7PTL        equ    $13e
  52.  
  53. ***********************************************************************
  54.         SECTION    Sprites1,code_p
  55. ;-----------------------------------------------------------------------
  56. Start:        movem.l    d0-a7,-(sp)        ;store regs
  57. ;-----------------------------------------------------------------------
  58.         move.l    #Screen,d0
  59.         move.w    d0,Screen_lo
  60.         swap    d0
  61.         move.w    d0,Screen_hi
  62. ;-----------------------------------------------------------------------
  63.         move.l    #Sprite,d0
  64.         move.w    d0,Sprite_lo
  65.         swap    d0
  66.         move.w    d0,Sprite_hi
  67. ;-----------------------------------------------------------------------
  68.         lea    Sprite,a0
  69.         move.w    #280,d0        ;x
  70.         move.w    #160,d1        ;y
  71.         moveq    #24,d2        ;height in pix
  72.  
  73.         moveq    #0,d3
  74.         asr.w    #1,d0
  75.         move.b    d1,d3
  76.         rol.w    #8,d3
  77.         move.b    d0,d3
  78.         rol.l    #8,d3
  79.         add.w    d2,d1
  80.         move.b    d1,d3
  81.         rol.l    #8,d3
  82.         move.l    d3,(a0)
  83. ;-----------------------------------------------------------------------
  84.         lea    Custom,a5
  85.         move.l    #CopperList,COP1LC(a5)
  86.         clr.w    COPJMP1(a5)
  87. ;-----------------------------------------------------------------------
  88.         move.w    #$8220,DMACON(a5)    ;DMA sprites on
  89. ;-----------------------------------------------------------------------
  90. MouseWait:    btst    #6,CIAAPRA        ;wait for button
  91.         bne.b    MouseWait
  92. ;-----------------------------------------------------------------------
  93.         movem.l    (sp)+,d0-a7        ;restore regs
  94.         moveq    #0,d0            ;all ok
  95. End:        rts
  96. ************************************************************************
  97. ************************************************************************
  98.         SECTION    Sprites2,data_c
  99. ;-----------------------------------------------------------------------
  100. Sprite:
  101.         dc.w    $0000,$0000        ;x,y,height
  102.         dc.w    $ffff,$0000        ;color 1
  103.         dc.w    $ffff,$0000
  104.         dc.w    $ffff,$0000
  105.         dc.w    $ffff,$0000
  106.         dc.w    $ffff,$0000
  107.         dc.w    $ffff,$0000
  108.         dc.w    $ffff,$0000
  109.         dc.w    $ffff,$0000
  110.         dc.w    $0000,$ffff        ;color 2
  111.         dc.w    $0000,$ffff
  112.         dc.w    $0000,$ffff
  113.         dc.w    $0000,$ffff
  114.         dc.w    $0000,$ffff
  115.         dc.w    $0000,$ffff
  116.         dc.w    $0000,$ffff
  117.         dc.w    $0000,$ffff
  118.         dc.w    $ffff,$ffff        ;color 3
  119.         dc.w    $ffff,$ffff
  120.         dc.w    $ffff,$ffff
  121.         dc.w    $ffff,$ffff
  122.         dc.w    $ffff,$ffff
  123.         dc.w    $ffff,$ffff
  124.         dc.w    $ffff,$ffff
  125.         dc.w    $ffff,$ffff
  126.         dc.w    $0,0            ;end sprite data
  127. ;-----------------------------------------------------------------------
  128. CopperList:
  129.         dc.w    DIWSTRT,$2981
  130.         dc.w    DIWSTOP,$29c1
  131.         dc.w    DDFSTRT,$0038        ;lores screen
  132.         dc.w    DDFSTOP,$00d0
  133.         dc.w    BPLCON0,$1200        ;1 plane
  134.         dc.w    COLOR00,$0000        ;ground=black
  135.         dc.w    COLOR17,$0f00        ;red
  136.         dc.w    COLOR18,$00f0        ;green
  137.         dc.w    COLOR19,$000f        ;blue
  138.         dc.w    BPL1PTH
  139. Screen_hi:    dc.w    $0000
  140.         dc.w    BPL1PTL
  141. Screen_lo:    dc.w    $0000
  142.         dc.w    SPR0PTH
  143. Sprite_hi:    dc.w    $0000
  144.         dc.w    SPR0PTL
  145. Sprite_lo:    dc.w    $0000
  146.         dc.w    SPR1PTH,$0000        ;unused sprites off
  147.         dc.w    SPR1PTL,$0000
  148.         dc.w    SPR2PTH,$0000
  149.         dc.w    SPR2PTL,$0000
  150.         dc.w    SPR3PTH,$0000
  151.         dc.w    SPR3PTL,$0000
  152.         dc.w    SPR4PTH,$0000
  153.         dc.w    SPR4PTL,$0000
  154.         dc.w    SPR5PTH,$0000
  155.         dc.w    SPR5PTL,$0000
  156.         dc.w    SPR6PTH,$0000
  157.         dc.w    SPR6PTL,$0000
  158.         dc.w    SPR7PTH,$0000
  159.         dc.w    SPR7PTL,$0000
  160.  
  161.         dc.w    $ffff,$fffe
  162. ;-----------------------------------------------------------------------
  163. Screen:        blk.b    40*256,0
  164.